home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
eulisp
/
mpfeel.lha
/
MPFeel
/
Modules
/
standard0.em
< prev
next >
Wrap
Text File
|
1992-10-07
|
1KB
|
75 lines
;; Eulisp Module
;; most of levels 1 and 0
;; Standard modules...
;; $Header: /opt/home/pab/Export/You/NewYou/Modules/RCS/standard0.em,v 1.6 1992/02/11 22:50:25 pab Exp pab $$
(defmodule standard0
(lists
list-operators
extras0
macros0
others
arith
streams
calls
ccc
vectors
tables
formatted-io
strings
(except (defcondition) errors)
symbols
(except (defgeneric defmethod call-next-method generic-lambda) generics)
(except (defclass defstruct) classes)
characters
threads
semaphores
defs
(except (null) class-names)
initcode) ()
;; hack
(defmethod generic-prin ((x generic-function) stream)
(format stream "#<~a: ~a>"
(class-name (class-of x))
(generic-name x)))
(defmethod generic-write ((x generic-function) stream)
(format stream "#<~a: ~a>"
(class-name (class-of x))
(generic-name x)))
(expose
lists
list-operators
extras0
macros0
others
arith
streams
calls
ccc
vectors
tables
formatted-io
strings
errors
(except (defcondition) errors)
symbols
(except (defgeneric defmethod call-next-method generic-lambda) generics)
(except (defclass defstruct) classes)
classes
characters
threads
semaphores
defs
initcode
(except (null) class-names))
(defconstant *compiler-hack* 42)
)